48 POKE 52,56:POKE 56,56:CLR:GOSUB 7000:POKE53280,.:POKE53281,.
49 PRINT "[147]":POKE214,10:PRINT
50 PRINT "   DO YOU NEED INSTRUCTIONS?  Y/N [146]"
51 GET A$
53 IF A$="" THEN 51
55 IF (A$="Y" OR A$="[217]")THEN GOSUB 112
56 IF (A$="N" OR A$="[206]") THENGOSUB8000:GOTO 70
57 GOTO 49
70 PRINT "[147]":POKE214,10:PRINT
71 PRINT "                 LOADING..."
72 LOAD "PARK",8:GOTO 11726
75 END
112 PRINT "[147]":POKE214,10:PRINT
113 PRINT "   PRINT TO SCREEN OR PRINTER?  S[146] OR P[146]?"
114 GET A$
115 IF A$="" THEN 114
117 IF (A$="S" OR A$="[211]") THEN 120
118 IF (A$="P" OR A$="[208]") THEN GOSUB6000:GOTO135
119 GOTO 112
120 PRINT "[147]"
125 TB$=" ":GOSUB 200
130 GOTO 153
135 TB$="                    ":OPEN4,4:CMD4
140 GOSUB 200
145 PRINT#4:CLOSE4
153 PRINT "[147]":POKE214,9:PRINT
154 PRINT "        DO YOU WANT TO SEE THE"
155 PRINT "      INSTRUCTIONS AGAIN?  Y/N [146]"
156 GET A$
157 IF A$="" THEN 156
159 IF (A$="Y" OR A$="[217]")THEN 112
160 IF (A$="N" OR A$="[206]") THEN GOSUB8000:RETURN
161 PRINT "[147]"
162 GOTO 153
200 PRINTTB$"        PLANNING INSTRUCTIONS"
205 PRINT
210 PRINTTB$"    YOU HAVE BEEN HIRED BY THE        "
215 PRINTTB$"CRANBERRY COVE RECREATION COMMITTEE   "
220 PRINTTB$"TO PLAN A NEW PARK FOR THE TOWN.  YOUR"
225 PRINTTB$"JOB IS TO DRAW UP THE PLAN IN A       "
230 PRINTTB$"CERTAIN NUMBER OF DAYS (YOUR DEADLINE)"
235 PRINTTB$"TO MEET THE SPECIFICATIONS OF THE     "
240 PRINTTB$"COMMITTEE.  YOUR JOB RATING DEPENDS   "
245 PRINTTB$"UPON HOW MANY OF THE MOST DESIRABLE   "
250 PRINTTB$"PARK PARTS YOU CAN INCLUDE IN YOUR    "
255 PRINTTB$"PLAN BEFORE THE DEADLINE."
260 PRINT:PRINTTB$"   YOU WILL DRAW UP YOUR PLANS ON A   "
265 PRINTTB$"RECTANGULAR PLANNING DIAGRAM WITH 18  "
270 PRINTTB$"PLOTS WHERE THE DIFFERENT PARTS OF THE"
275 PRINTTB$"PARK MAY GO.  THE PLOTS ARE ARRANGED  "
280 PRINTTB$"IN 3 ROWS AND 6 COLUNMS, LIKE THIS:   "
285 PRINT:IF TB$=" " THEN GOSUB 3000
294 PRINTTB$"     [176][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][174]  "
295 PRINTTB$"     [221]    [221]    [221]    [221]    [221]    [221]    [221]  "
300 PRINTTB$"   1 [221]    [221]    [221]    [221]    [221]    [221]    [221]  "
305 PRINTTB$"     [171][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179]  "
310 PRINTTB$"R    [221]    [221]    [221]    [221]    [221]    [221]    [221]  "
390 PRINTTB$"O  2 [221]    [221]    [221]    [221]    [221]    [221]    [221]  "
395 PRINTTB$"W    [171][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179]  "
400 PRINTTB$"     [221]    [221]    [221]    [221]    [221]    [221]    [221]  "
405 PRINTTB$"   3 [221]    [221]    [221]    [221]    [221]    [221]    [221]  "
410 PRINTTB$"     [173][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][192][189]  "
415 PRINT
420 PRINTTB$"        1    2    3    4    5    6    "
425 PRINT
430 PRINTTB$"                  COLUMN              "
435 PRINT:PRINT:IF TB$=" " THEN GOSUB 3000
436 PRINT
440 PRINTTB$"          RECREATIONAL VALUES         "
445 PRINTTB$"          AND YOUR JOB RATING         "
450 PRINT
455 PRINTTB$"   YOU HAVE A LIST OF PARK PARTS TO   "
460 PRINTTB$"WORK WITH, AND THE COMMITTEE HAS      "
465 PRINTTB$"ASSIGNED EACH OF THESE PARTS A CERTAIN"
475 PRINTTB$"RECREATIONAL VALUE, A NUMBER FROM 1 TO"
480 PRINTTB$"9.  THIS NUMBER REPRESENTS THE        "
485 PRINTTB$"COMMITTEE'S JUDGMENT AS TO HOW        "
490 PRINTTB$"VALUABLE THAT PART WILL BE TO THE     "
495 PRINTTB$"SUCCESS OF THE PARK.  IF THE PARK IS  "
500 PRINTTB$"CONSIDERED SUCCESSFUL, THEN OF COURSE "
505 PRINTTB$"YOUR JOB RATING WILL BE HIGH.  EACH   "
510 PRINTTB$"TIME YOU INCLUDE A PART IN YOUR PLAN, "
515 PRINTTB$"YOUR JOB RATING WILL GO UP BY THE SAME"
520 PRINTTB$"AMOUNT AS THE PART'S VALUE RATING.  IF"
525 PRINTTB$"THE SAND BOX HAS A VALUE OF 5, AND YOU"
530 PRINTTB$"INCLUDE IT IN YOUR PLAN, YOUR JOB     "
535 PRINTTB$"RATING WILL GO UP BY FIVE POINTS."
540 IF TB$=" " THEN GOSUB 3000
545 PRINT:PRINTTB$"   IF YOU DON'T FINISH BY THE DEADLINE"
550 PRINTTB$"DATE, YOUR JOB RATING WILL DECREASE   "
555 PRINTTB$"WITH EACH DAY YOU FAIL TO COMPLETE    "
560 PRINTTB$"YOUR PLAN.  "
565 PRINT:PRINTTB$"       RESTRICTIONS ON PLACEMENT"
570 PRINT:PRINTTB$"   YOUR TASK IS MADE MORE DIFFICULT   "
575 PRINTTB$"BY THE FACT THAT THE COMMITTEE HAS PUT"
580 PRINTTB$"RESTRICTIONS ON THE PLACEMENT OF THE  "
585 PRINTTB$"VARIOUS PARTS YOU COULD INCLUDE IN THE"
590 PRINTTB$"PARK.  FOR EXAMPLE, SOME PARTS MUST BE"
595 PRINTTB$"OR MUST NOT BE ADJACENT TO OTHER      "
600 PRINTTB$"PARTS.  (ADJACENT MEANS DIRECTLY      "
605 PRINTTB$"ABOVE, BELOW, OR TO THE RIGHT OR LEFT "
610 PRINTTB$"OF OTHER PARTS.)  SOME PARTS MUST BE  "
615 PRINTTB$"IN CERTAIN ROWS OR COLUMNS OR ON THE  "
620 PRINTTB$"PERIMETER (AROUND THE EDGES) OF THE   "
625 PRINTTB$"PARK, AND SO FORTH."
626 PRINT: IF TB$=" " THEN GOSUB 3000
628 PRINT:PRINTTB$"   WHILE YOU ARE DEVELOPING YOUR PLAN,"
630 PRINTTB$"YOU WILL NOT BE ALLOWED TO PLACE A    "
635 PRINTTB$"PART ON THE DIAGRAM IF THE COMMITTEE'S"
640 PRINTTB$"RESTRICTIONS DO NOT PERMIT IT.  THE   "
645 PRINTTB$"RESTRICTIONS WILL BE SHOWN ON YOUR    "
650 PRINTTB$"LIST ALONG WITH THE RECREATIONAL VALUE"
655 PRINTTB$"OF EACH PART AND A TWO-LETTER         "
660 PRINTTB$"ABBREVIATION FOR THE NAME OF THE PART."
665 PRINT:PRINTTB$"   YOU MAY AT TIMES NEED TO KEEP TRACK"
670 PRINTTB$"OF A GREAT DEAL OF INFORMATION ABOUT  "
680 PRINTTB$"THE RESTRICTIONS ON PLACEMENT OF THE  "
685 PRINTTB$"VARIOUS PARK PARTS.  BECAUSE DIFFERENT"
690 PRINTTB$"PEOPLE LIKE TO ORGANIZE THEIR INFORMA-"
695 PRINTTB$"TION IN DIFFERENT WAYS FOR DIFFERENT  "
700 PRINTTB$"PLANNING STRATEGIES, YOU WILL BE GIVEN"
705 PRINTTB$"FOUR OPTIONS ON HOW YOU WANT THE PARK "
710 PRINTTB$"PARTS ARRANGED ON YOUR REFERENCE LIST."
720 PRINT:IF TB$=" " THEN GOSUB 3000
725 PRINT:PRINTTB$"   THESE ARE YOUR OPTIONS:            "
730 PRINT:PRINTTB$"  -PARTS WITH THE HIGHEST VALUES FIRST"
735 PRINTTB$"  -PARTS WITH THE FEWEST RESTRICTIONS "
740 PRINTTB$"     FIRST (THE 'EASIES')"
745 PRINTTB$"  -PARTS WITH THE MOST RESTRICTIONS   "
750 PRINTTB$"     FIRST (THE 'HARDS')"
755 PRINTTB$"  -ALPHABETICAL ORDER
760 [153]
765 [153]TB$"   TRY DIFFERENT ARRANGEMENTS TO SEE  "
770 [153]TB$"WHAT WORKS BEST FOR YOU UNDER WHAT    "
775 [153]TB$"CONDITIONS."
780 [153]
785 [139] TB$[178]" " [167] [141] 3000
790 [153]:[153]TB$"           COMMITTEE ADVICE":[153]
795 [153]TB$"   THE COMMITTEE MEMBERS ARE KNOWN TO "
800 [153]TB$"CHANGE THEIR MINDS OCCASIONALLY,      "
805 [153]TB$"ESPECIALLY A CERTAIN MR. NATHAN       "
810 [153]TB$"TERRUPT.  THUS THE COMMITTEE MAY      "
815 [153]TB$"INFORM YOU AT ANY TIME THAT THEY HAVE "
820 [153]TB$"CHANGED THE VALUES THEY PLACE ON      "
825 [153]TB$"CERTAIN PARTS OF THE PARK, OR THAT    "
830 [153]TB$"THEY DO NOT LIKE WHERE YOU HAVE       "
835 [153]TB$"PLANNED TO PUT A PARTICULAR PART.  YOU"
840 [153]TB$"MAY DISAGREE, BUT YOU MUST ACCEPT     "
845 [153]TB$"THEIR JUDGMENT.":[153]
850 [153]:[139] TB$[178]" " [167] [141] 3000
855 [153]:[153]TB$"            YOUR CONTRACT":[153]
860 [153]TB$"   YOU BEGIN BY SELECTING THE TERMS OF"
865 [153]TB$"YOUR PLANNING ASSIGNMENT.  THE AMOUNT "
870 [153]TB$"OF RESTRICTION THE COMMITTEE HAS PUT  "
875 [153]TB$"ON THE PLACEMENT OF PARTS MAY BE      "
880 [153]TB$"MINIMAL, MODERATE, OR SEVERE.         "
885 [153]TB$"THE NUMBER OF DAYS TO YOUR DEADLINE   "
890 [153]TB$"MAY BE 75, 150, 225, OR 300.  YOUR    "
895 [153]TB$"LIST MAY BE ORGANIZED IN ONE OF THE   "
900 [153]TB$"FOUR DIFFERENT WAYS.  YOU SHOULD      "
905 [153]TB$"DECIDE WHICH ARE THE EASIEST CHOICES  "
910 [153]TB$"TO BEGIN YOUR CAREER, BUT YOUR        "
915 [153]TB$"REPUTATION WILL IMPROVE AS YOU SELECT "
920 [153]TB$"THE MORE DIFFICULT ASSIGNMENTS.  "
925 [153]:[139] TB$[178]" " [167] [141] 3000
930 [153]:[153]TB$"          THE NITTY GRITTY"
935 [153]
940 [153]:[153]TB$"   FIRST VIEW THE LIST OF PARK PARTS,"
945 [153]TB$"THE RESTRICTIONS ON THEIR PLACEMENT,  "
950 [153]TB$"AND THE VALUE RATINGS ON EACH PIECE.  "
955 [153]TB$"THEN GO TO THE PLANNING DIAGRAM BY    "
960 [153]TB$"PRESSING THE 'P' KEY. (YOU MAY RETURN "
970 [153]TB$"TO THE LIST OF PARTS WHILE YOU ARE    "
973 [153]TB$"IN THE PLANNING MODE BY PRESSING THE  "
975 [153]TB$"'L' KEY.)"
980 [153]:[153]TB$"   ENTER THE ROW (1-3) AND COLUMN     "
985 [153]TB$"(1-6) OF THE PLOT WHERE YOU PLAN TO   "
990 [153]TB$"PUT A PARK PART AND THE TWO-LETTER    "
995 [153]TB$"CODE FOR THE PART YOU WANT TO PUT     "
1000 [153]TB$"THERE.":[153]
1005 [153]:[139] TB$[178]" " [167] [141] 3000
1020 [153]TB$"   AN 'X' WILL CANCEL THE ROW AND/OR  "
1025 [153]TB$"COLUMN YOU JUST ENTERED.  AN 'E' IN   "
1030 [153]TB$"THE PARK PART SPACE WILL ERASE THE    "
1035 [153]TB$"PART CURRENTLY IN THE ROW AND COLUMN  "
1040 [153]TB$"YOU INDICATED.  IF YOU WANT TO REPLACE"
1045 [153]TB$"ONE PART WITH ANOTHER, YOU NEED NOT   "
1050 [153]TB$"ERASE FIRST."
1055 [153]:[153]TB$"   WHEN YOU DECIDE THAT YOU HAVE DONE "
1060 [153]TB$"YOUR BEST POSSIBLE JOB (OBTAINED THE  "
1065 [153]TB$"HIGHEST RATING POSSIBLE UNDER THE     "
1070 [153]TB$"CIRCUMSTANCES), PRESS THE 'F1' KEY,   "
1075 [153]TB$"AND YOUR JOB RATING WILL BE RECORDED  "
1080 [153]TB$"IN THE 'PARK PLANNING DIGEST,' WHICH  "
1085 [153]TB$"COMMUNITIES USE AS A GUIDE IN HIRING  "
1090 [153]TB$"PARK PLANNERS."
1095 [153]:[139] TB$[178]" " [167] [141] 3000
1100 [153]:[153]TB$"   NOW YOU'RE READY TO TACKLE ANOTHER "
1105 [153]TB$"ASSIGNMENT.  TRY A HIGHER LEVEL OF    "
1110 [153]TB$"RESTRICTION AND EARLIER DEADLINE      "
1115 [153]TB$"DATES TO ADD TO YOUR REPUTATION.  HOW "
1120 [153]TB$"DOES THE ARRANGEMENT OF THE LIST OF   "
1125 [153]TB$"PARTS AFFECT YOUR PERFORMANCE?  WHAT  "
1130 [153]TB$"KINDS OF STRATEGIES ARE BEST FOR YOU?":[153]
1135 [153]:[139] TB$[178]" " [167] [141] 3000
1140 [153]:[153]TB$"   FOR THOSE WHO ARE PRINTING THESE   "
1145 [153]TB$"INSTRUCTIONS, HERE IS A LIST OF THE   "
1150 [153]TB$"PARK PARTS AND THEIR ABBREVIATIONS.   "
1155 [153]TB$"THE LIST WILL ALSO BE ACCESSIBLE ON   "
1160 [153]TB$"THE SCREEN AFTER THE PROGRAM HAS     "
1165 [153]TB$"LOADED.":[153]
1170 [153]:[153]TB$"          BC :BASKETBALL COURT"
1175 [153]TB$"          BD: BASEBALL DIAMOND  "
1180 [153]TB$"          BS: BIG SLIDE"
1185 [153]TB$"          CS: CURVING SLIDE "
1190 [153]TB$"          DO: DOME "
1195 [153]TB$"          DP: DUCK POND"
1200 [153]TB$"          FG: FLOWER GARDEN "
1205 [153]TB$"          FO: FORT"
1210 [153]TB$"          HB: HIGH BAR           "
1215 [153]TB$"          KF: KITE FLYING  "
1220 [139] TB$[178]" " [167] [141] 3000
1225 [153]TB$"          MG: MERRY-GO-ROUND "
1230 [153]TB$"          PA: PICNIC AREA   "
1235 [153]TB$"          PS: PIZZA STAND "
1240 [153]TB$"          PZ: PARENT ZONE "
1245 [153]TB$"          RB: ROPE BRIDGE"
1250 [153]TB$"          RS: ROLLER SKATING"
1255 [153]TB$"          SB: SAND BOX"
1260 [153]TB$"          SS: SEESAW"
1265 [153]TB$"          SW: SWING SET"
1270 [153]TB$"          TA: TODDLER AREA"
1275 [153]TB$"          TB: TOY BOAT LAGOON"
1280 [153]TB$"          TH: TREE HOUSE"
1285 [153]TB$"          WP: WADING POOL"
1345 [153]:[153]:[139] TB$[178]" " [167] [141] 3000
2999 [142]
3000 [153]
3001 [153] "      PRESS SPACE BAR TO CONTINUE. "
3002 [161] A$
3003 [139] A$[178]" "[167] 3010
3004 [137] 3002
3010 [153] "LOAD"
3015 [142]
6000 [159]15,4,15:[160]15:[139]ST[179][177]0[167] 6050
6010 [142]
6050 [153]"LOAD":[151]214,9:[153]
6051 [153]"          PRINTER NOT DETECTED!"
6053 [153]"          PRESS ANY KEY TO CONT."
6054 [161]A$:[139]A$[178]""[167]6054
6055 [137]112
7000 [151]53265,[194](53265)[175]239:[151]53280, 6:[151]53281, 1:[153]"LOADRETURN";
7001 [153]"LIST                                                                      ";
7002 [153]"                                                       CONT                ";
7003 [153]"             LIST           CONT      LOADSTAR PROUDLY       POKE LIST          CONT   ";
7004 [153]"       PRESENTS           POKE LIST          CONT                             POKE LIST";
7005 [153]"          CONT    WAITCLRoUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRpCONT    POKE LIST          CONT    WAITCLRSGNCRAN";
7006 [153]"BERRYPARKCLR+ CONT   POKE LIST          CONT    WAITCLRlANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQR CONT   POKE ";
7007 [153]"LIST          CONT                          CONT   POKE LIST          CONT    WAITOPENoUSRUSRUSRUSRUSRUSRUSRUSR";
7008 [153]"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRpCONT    POKE LIST          CONT    WAITOPENSGNCLRBYGLORIAFOWLEROPEN+ CONT   POKE LIST ";
7009 [153]"         CONT    WAITOPENlANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQR CONT   POKE LIST          CONT             ";
7010 [153]"             CONT   POKE LIST          CONT    WAITCLRoUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRpCONT    POKE LIST     ";
7011 [153]"     CONT    WAITCLRSGNCOPYRIGHT1988CLRTHEN CONT   POKECLOSELIST          CONT    WAITCLRlANDANDANDANDANDANDANDANDAND";
7012 [153]"ANDANDANDANDANDANDANDANDANDANDSQR CONT   POKE LIST          CONT                          CONT   POKE LIST      ";
7013 [153]"    CONT                             POKECLOSELIST          CONT   PRESS SPACE TO CONTIN";
7014 [153]"UE   POKE LIST          CONT                             POKE LIST           POKE         ";
7015 [153]"                    LIST                                                   ";
7016 [153]"                                 "
7020 [151]2023,96[170]128:[151]56295,15:[151]53265,[194](53265)[176]16
7030 [161]A$:[139]A$[179][177]" "[167]7030
7040 [142]
8000 [151]53280,.:[151]53281,.:[153]"LOADCONT             CRANBERRY PARK"
8001 [153]" NOTELIST : ONCE CRANBERRY PARK IS LOADED
8002 PRINT"        YOU WILL HAVE TO REBOOT
8003 [153]"        LOADSTAR TO RETURN TO THE MENU"
8004 [153]"        SYSTEM."
8005 [153]"SYS   DO YOU WANT TO CONTINUE LOADING?"
8006 [153]"           ENTER RESPONSE (Y/N)"
8010 [161]A$:[139]A$[178]""[167]8010
8016 [139]A$[178]"Y"[167] [137]70
8017 [139]A$[178]"N"[167] 9000
8020 [137] 8010
9000 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER:[160]15
9010 [139] ER[179][177]63 [167] [153]"LOAD":[128]
9011 [147]"HELLO CONNECT",8,1